API - Timer - Tabellenblattschutz prüfen!

Frage aus Office-Loesung: Kann man das Setzen bzw. Aufheben des Tabellenblattschutzes überwachen? Ja - das geht per API. Wird der Tabellenblattschutz aufgehoben, dann wird der CommandButton ROT, sonst Grün.

API - Timer - Tabellenblattschutz prüfen...[ZIP, 50 KB]

Hinweise:
API - Set Timer

API - Kill Timer

Option Explicit
Private Declare Function KillTimer Lib "user32.dll" _
(ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function SetTimer Lib "user32.dll" _
(ByVal hWnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public lngTimer As Long
Sub SchutzAktiv(ByVal hWnd As Long, ByVal lngMsg As Long, _
ByVal lngEla As Long, ByVal lngFunc As Long)
If lngMsg = &H113 Then
With Tabelle1
.CommandButton1.BackColor = IIf(Not .ProtectContents, &HFF&, &HC000&)
End With
End If
End Sub
Sub StartT()
lngTimer = SetTimer(0, 0, 300, AddressOf SchutzAktiv)
End Sub
Sub StopT()
KillTimer 0, lngTimer
End Sub

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...