AW: VBA anpassung
26.04.2017 10:04:18
yummi
Hallo Sebastian,
an der Stelle wo der Blattschutz aufgehoben werden soll kommt
ActiveSheet.Unprotect Password:="DeinPasswort"
und an die Stelle wo Du es wieder schützen willst
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" _
DeinPasswort"
Nur musst Du dein Passswort anpassen.
Also z.b.
Private Sub Workbook_Close()
Dim letztezeile As Long
Dim i As Long
Beschleunigen True
letztezeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.Unprotect Password:="DeinPasswort"
For i = 17 To letztezeile
ActiveSheet.Rows(i).Hidden = False
Next i
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" _
DeinPasswort"
Beschleunigen False
End Sub
Private Sub Workbook_Open()
Beschleunigen True
ActiveSheet.Unprotect Password:="DeinPasswort"
Call leere_Zeilen_ausblenden
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=" _
DeinPasswort"
Beschleunigen False
End Sub
Nur wie gesagt Passwort anpassen. Wenn du dann nicht möchtest, dass jeder die Möglichkeit hat das Passwort zu lesen, dann musst du im Visual Basic Editor (da wo VBAProject (113097.xlm) steht mit der rechten Maustaste klicken und "Eigenschaften von VBA Projekt" wählen. Im folgenden Dialog auf den Reiter Schutz gehen, Haken bei Projekt für Anzeige sperren und unten ein Passwort vergeben.
Nur für den Fall, dass nciht jeder sich deinen Code anschauen kann ohne ein wenig kriminelle Energie aufzuwenden.
Gruß
yummi