Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bearbeitung nur, wenn Makros aktiviert

Bearbeitung nur, wenn Makros aktiviert
26.08.2020 19:42:02
Alexia
Hallo zusammen
Bin blutige Anfängerin bzgl. VBA... Suche einen Weg, wie es möglich ist, eine Datei nur dann bearbeiten zu können, wenn Makros aktiviert sind. Habe versucht, aus anderen Forumseinträgen etc. was zusammenzuklauen und habe jetzt folgenden Code in "DieseArbeitsmappe":
Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = "INFO" Then
Ws.Visible = xlSheetVeryHidden
ElseIf Ws.Name = "Hilfsblatt" Then
Ws.Visible = xlSheetVeryHidden
Else
Ws.Visible = xlSheetVisible
End If
Next Ws
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = "INFO" Then
Ws.Visible = xlSheetVisible
Else
Ws.Visible = xlSheetVeryHidden
End If
Next Ws
End Sub
Beim Öffnen der Datei bekomme ich jetzt folgende Fehlermeldung:
Laufzeitfehler '1004': Die Methode 'Visible' für das Objekt '_Worksheet' ist fehlgeschlagen
Bin dankbar für Anfänger-gerechte Hinweise...
Gruss Alexia

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bearbeitung nur, wenn Makros aktiviert
26.08.2020 19:43:54
Hajo_Zi
Hallo Alwxia,
http://hajo-excel.de/inhalt_vba_nur_makros.htm
Falls Link nicht ausgeführt wird:
1. Link kopieren
2. rechte Maustaste neues Fenter.
3. Umschaltstaste drücken und Klick auf den Link

AW: Bearbeitung nur, wenn Makros aktiviert
26.08.2020 21:17:20
Alexia
Danke Hajo, werde versuchen, den Code zu verstehen...
AW: Bearbeitung nur, wenn Makros aktiviert
26.08.2020 20:58:55
Rudi
Hallo,
erst alle einblenden und dann Info ausblenden. Sonst wird evtl. das einzige sichtbare sheet ausgeblendet. Deshalb der Fehler.
Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
ws.visible=xlsheetvisible
Next Ws
Sheets("Info").visible=xlsheetveryhidden
End Sub
Gruß
Rudi
Anzeige
AW: Bearbeitung nur, wenn Makros aktiviert
26.08.2020 21:18:19
Alexia
Herzlichen Dank, Rudi! Das war's! Jetzt funzt es. Gruss, Alexia

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige