Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Anfrageformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

Verschiedenes Rund um den Blattschutz

102003



Verschiedenes Rund um den Blattschutz
 

Blattschutz herstellen und das Gruppieren erlauben

Privat Sub Workbook_Open()

ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True

ActiveSheet.EnableOutlining=True

End Sub



Blattschutz herstellen und Gruppieren und Autofilter erlauben

Privat Sub Workbook_Open()

ActiveSheet.Protect password:="Geheim" Contents:=True, UserInterfaceOnly:=True

ActiveSheet.EnableOutlining=True

ActiveSheet.EnableAutoFilter=True

End Sub



Blattschutz mit Passwort in Variable abgelegt

Public Sub Schutz()

pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value

ActiveSheet.Protect password:=pwd, Contents:=True, UserInterfaceOnly:=True

ActiveSheet.EnableOutlining=True

End Sub



Blattschutz aufheben

Public Sub Schutz_aufheben()

pwd = "Geheim" oder pwd = sheets("Optionen").Range("B2").Value

ActiveSheet.Unprotect (pwd)

End Sub

   

Relevante Artikel