Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1128to1132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Blattschutz mit PW | Herbers Excel-Forum

Blattschutz mit PW
13.01.2010 20:04:47
Heinz H

Hallo Leute
Ich möchte einen Blattschutz mi PW setzen bei


'Sub Sperren()
Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect Password:="woody-6962"
For i = 6 To 35
Range("A" & i & ":O" & i).Locked = False
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
Value) = 1 Then
Range("A" & i & ":O" & i).Locked = True
End If
Range("A:B,G:K,M:CC").Locked = True
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Habe es probiert mit

ActiveSheet.Protect Password:="Test" DrawingObjects:=True, Contents:=True, Scenarios:=True

So funktioniert es leider nicht.
Hätte bitte jemand eine Hilfe dazu ?
Gruß
Heinz

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz mit PW
13.01.2010 20:10:20
Hajo_Zi
Hallo Heinz,
fehlt da nicht ein Komma nacht "Test" ?

AW: Blattschutz mit PW
13.01.2010 20:12:51
Heinz H
Hallo Hajo
fehlt da nicht ein Komma nacht "Test" ?
JAAA das war's !!
Recht herzlichen Dank
Gruß
Heinz
AW: Blattschutz mit PW
13.01.2010 20:13:02
hary
Hallo Heinz

Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect Password:="woody-6962"
For i = 6 To 35
Range("A" & i & ":O" & i).Locked = False
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
Value) = 1 Then
Range("A" & i & ":P" & i).Locked = True
End If
Next
ActiveSheet.Protect Password:="woody-6962", DrawingObjects:=True, Contents:=True, Scenarios: _
=True
End Sub

gruss hary
Anzeige
AW: Blattschutz mit PW
13.01.2010 20:28:13
Heinz H
Hallo Hary
Ich danke dir jeden Tag 100 mal.
Jetzt bin ich hoffentlich auf der Zielgeraden mit dieser Stundenliste.
Nochmals Danke
Heinz
AW: warten.....
13.01.2010 20:32:44
hary
hallo heinz
....mal ab. ;-))
Hab ja Deine Mappe auf der Festplatte. Also Zeitgleich fertig.
Danke fuer Rueckmeldung(en)
gruss hary
AW: warten.....
13.01.2010 20:41:27
Heinz H
Hallo Hary
Wenn du diese Mappe auf deiner Festplatte hast, und Lust verspürst sie von Fehler zu befreien oder zu Optimieren.
Kannst du das natürlich machen.
Eventuell mit

'Application.ScreenUpdating = False
Den das ganze ruckelt noch.
Danke, Heinz aus dem Ösi Land
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige