Tabellenschutz in Teilbereichen entsperren
Peter
etliche Mitbenutzer der Anwendung verwenden noch Excel 97 bzw. 2000, darum kann ich das Feature "Teilbereiche für Benutzer freigeben" nicht verwenden sondern möchte dies per VBA erledigen..dazu habe ich folgende Syntax verwendet, die leider nicht funktioniert...bitte um Hilfe
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
a = Sheets("Tabelle1").[A1].Value
If a = "23" Or a = "123" Then
Sheets("Luxus").[L12:W17].Unprotect Password:="JA"
End If
End Sub
Vielen Dank
Peter S.
Anzeige