title image


Smiley Re: Schreibschutz auf Exceldatei
Hallo Hans Bärbel [img]http://smilie-land.de/t/i-l/lachen/lachen0048.gif[/img],



folgender Cod unter DieseArbeitsmappe nicht Modul



Option Explicit



Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Environ("Username") "Hajo_Zi" Then ThisWorkbook.Close False

End Sub



Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Environ("Username") "Hajo_Zi" Then Cancel = True

End Sub





Gruß Hajo






 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: