Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Unterdrückung von Sicherheitsabfragen

Gruppe

Meldung

Problem

Wie bringe ich Excel dazu, keine Sicherheitsabfragen durchzuführen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub ArbeitsblattLoeschen()
   Const csCpt1 As String = "Blatt anlegen"
   Const csCpt2 As String = "Blatt löschen"
   Dim oBtn As Button
   Set oBtn = ActiveSheet.Buttons(Application.Caller)
   If oBtn.Caption = csCpt1 Then
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = "Dummy"
      oBtn.Caption = csCpt2
      oBtn.Parent.Select
   Else
      Application.DisplayAlerts = False
      Worksheets("Dummy").Delete
      Application.DisplayAlerts = True
      oBtn.Caption = csCpt1
   End If
End Sub