title image


Smiley Re: Schreibschutz abfragen
Hallo Tom,



so:



Public Sub test()    If ThisWorkbook.ReadOnly Then MsgBox "Schreibgeschützt"End Sub
Gruß
Nepumuk


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: