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 Auftragsformular

  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

  • In Zelle A1 kennzeichnen ob Blatt geschützt ist oder nicht (Ampel)

    102027 Dieses Makro färbt die Zelle A1 rot, wenn das Blatt geschützt ist. Wird der Blattschutz aufgehoben, so wird die Farbe der Zelle A1 auf grün geändert!Damit die Kennzeichnung in Zelle A1...

  • Autofilter trotz Blattschutz ermöglichen

    Normalerweise funktioniert bei eingeschaltetem Blattschutz der Autofilter nicht mehr. Egal, ob das Blatt über Extras->Schutz->Blatt schützen oder über eine VBA-Prozedur geschützt wurde. Mit...

  • Einzelnes Tabellenblatt per E-Mail versenden

    Dieses Makro versendet das aktive Tabellenblatt per E-Mail über Outlook. Wenn der VBA-Code ausgeführt wird, wird automatisch das aktive Tabellenblatt an eine neue E-Mail angefügt und die E-Mail über...

  • Zellinhalt automatisch als Blattname verwenden

    102028 Mit dem folgenden Makro wird der Inhalt der Zelle A5 automatisch als Blattname verwendet unddas Tabellenblatt entsprechend umbenannt. Dieses Makro muss in das Tabellenblatt eingefügt werde in...

  • Inhaltsverzeichnis aller Tabellenblätter einfügen

    102025 Möchten Sie einen Überblick über alle in einer Excel-Arbeitsmappe vorhandenen Tabellenblätter (Sheets) gewinnen, so können Sie dies erreichen indem Sie in ein Tabellenblatt ein...