Schreibschutz
20.03.2007 11:37:35
Snewi
ich habe folgenden Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'einfache Variante, Tabellen sind normalerweise nicht geschütz, es gibt keine Zellen mit Format - Schutz deaktiviert
Dim strDatname As String, Diag As Chart, wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect
Next
For Each Diag In ThisWorkbook.Charts
Diag.Protect
Next
strDatname = ThisWorkbook.Path & "\Untertest\" & ThisWorkbook.Name 'Pfad + Name anpassen
If Dir(strDatname) "" Then SetAttr strDatname, vbNormal
ThisWorkbook.SaveCopyAs strDatname
SetAttr Pathname:=strDatname, Attributes:=vbReadOnly
For Each wks In ThisWorkbook.Worksheets
wks.Unprotect
Next
For Each Diag In ThisWorkbook.Charts
Diag.Unprotect
Next
End Sub
jetzt habe ich einen Autofilter der beim Schreibschutz ebenfalls gesperrt ist! Wie kann ich das aufheben ?Oder vielleicht das die nicht geschützten Zellen auch beim ausführen des Makros nicht mit protected werden?
Gruß