VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 08:53:47	Frank
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 16:59:46	Gast6578
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 18:08:36	Frank Oberbach
Umwandlung Libre Office VBA Makro in Office 365 Makro	05.02.2022 13:48:54	Gast98438
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 18:19:45	Frank
Umwandlung Libre Office VBA Makro in Office 365 Makro	06.02.2022 19:44:03	Frank

Ansicht des Beitrags:

Von:
Gast6578

Datum:
04.02.2022 16:59:46

Views:
425

Rating:

Antwort:

Thema:
Umwandlung Libre Office VBA Makro in Office 365 Makro

Würde vorschlagen das gleich mal zu überarbeiten.

Option Explicit

Public Sub CopySheetAndProtect()
  
  Dim wksSource As Excel.Worksheet
  Dim wksNew As Excel.Worksheet
  Dim strNewName As String
  Dim strNewPassword As String
  
  If Not TypeOf ThisWorkbook.ActiveSheet Is Excel.Worksheet Then
    Call MsgBox("Das aktuelle Blatt muss ein Tabellenblatt sein!", vbExclamation)
    Exit Sub
  End If
  
  Set wksSource = ThisWorkbook.ActiveSheet
  
  Do
    strNewName = Trim$(InputBox("Neuer Name: ", "Aktuelle Tabelle kopieren", "Tabelle"))
    If strNewName = "" Then Exit Sub
    
    On Error Resume Next
    Set wksNew = Nothing
    Set wksNew = ThisWorkbook.Worksheets(strNewName)
    On Error GoTo 0
    
    If Not wksNew Is Nothing Then
      Call MsgBox("Ein Tabellenblatt mit dem Namen '" & strNewName & "' existiert bereits!" & vbNewLine & _
                  "Bitte geben sie einen anderen Namen ein.", vbExclamation)
    End If
    
  Loop Until wksNew Is Nothing
  
  strNewPassword = Trim$(InputBox("Passwort: ", "Tabellenschutz", "Tabelle"))
  If strNewPassword = "" Then Exit Sub
  
  With wksSource.Parent
    Call wksSource.Copy(After:=.Sheets(.Sheets.Count))
    Set wksNew = .Worksheets(.Worksheets.Count)
  End With
  wksNew.Name = strNewName
  
  Call wksNew.Protect(strNewPassword)
  
  Call MsgBox("Das Tabellenblatt '" & strNewName & "' wurde angelegt und geschützt.", vbInformation)
  
End Sub

Grüße

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 08:53:47	Frank
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 16:59:46	Gast6578
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 18:08:36	Frank Oberbach
Umwandlung Libre Office VBA Makro in Office 365 Makro	05.02.2022 13:48:54	Gast98438
Umwandlung Libre Office VBA Makro in Office 365 Makro	04.02.2022 18:19:45	Frank
Umwandlung Libre Office VBA Makro in Office 365 Makro	06.02.2022 19:44:03	Frank