Microsoft Excel

Herbers Excel/VBA-Archiv

Blattschutz mit PW | Herbers Excel-Forum


Betrifft: Blattschutz mit PW von: Heinz H
Geschrieben am: 13.01.2010 20:04:47

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

  

Betrifft: AW: Blattschutz mit PW von: Hajo_Zi
Geschrieben am: 13.01.2010 20:10:20

Hallo Heinz,

fehlt da nicht ein Komma nacht "Test" ?

GrußformelHomepage


  

Betrifft: AW: Blattschutz mit PW von: Heinz H
Geschrieben am: 13.01.2010 20:12:51

Hallo Hajo

fehlt da nicht ein Komma nacht "Test" ?
JAAA das war's !!

Recht herzlichen Dank

Gruß
Heinz


  

Betrifft: AW: Blattschutz mit PW von: hary
Geschrieben am: 13.01.2010 20:13:02

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


  

Betrifft: AW: Blattschutz mit PW von: Heinz H
Geschrieben am: 13.01.2010 20:28:13

Hallo Hary

Ich danke dir jeden Tag 100 mal.

Jetzt bin ich hoffentlich auf der Zielgeraden mit dieser Stundenliste.

Nochmals Danke
Heinz


  

Betrifft: AW: warten..... von: hary
Geschrieben am: 13.01.2010 20:32:44

hallo heinz
....mal ab. ;-))
Hab ja Deine Mappe auf der Festplatte. Also Zeitgleich fertig.
Danke fuer Rueckmeldung(en)
gruss hary


  

Betrifft: AW: warten..... von: Heinz H
Geschrieben am: 13.01.2010 20:41:27

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


  

Betrifft: AW: warten..... von: Heinz H
Geschrieben am: 13.01.2010 20:59:04

Hallo Hary

Hier die aktuellste Version (Nur wenn es dich Interresiert)

Damit bist Du Up To Date

Gruß
Heinz

https://www.herber.de/bbs/user/67206.xls


Beiträge aus den Excel-Beispielen zum Thema "Blattschutz mit PW"