Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices

CheckProtection

Überprüft, ob ein Worksheet geschützt ist ...


Option Explicit Public Function CheckProtection(ws As Excel.Worksheet) As Boolean CheckProtection = ws.ProtectContents End Function ' oder als Tabellenfunktion ... Public Function CheckProtection(ws As String) As Boolean CheckProtection = ThisWorkbook.Sheets(ws).ProtectContents End Function

Wie nützlich finden Sie diesen Tipp?
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)