Blattschutz im Macro
20.09.2016 04:19:18
Markus
ich habe mein Tabelle geschützt bis auf den Aktivierungbutton für mein Macro. Um dieses Auszuführen muss der Blattschutz deaktiviert werde. Das funktioniert noch. Am Ende soll er aber wieder mit Passwort aktiviert werden. Das gleiche wenn das Macro abgebrochen wird - also der Lade Dialog Getopenfilename abgebrochen wird.
Sub laden()
' laden Macro
Dim PfadName As Variant, sName As String
ActiveSheet.unprotect "password"
PfadName = Application.GetOpenFilename("CSV-Datei (*.csv),*.csv")
If PfadName = False Then Exit Sub
PfadName = "TEXT;" & PfadName
sName = Right(PfadName, Len(PfadName) - InStrRev(PfadName, "\"))
sName = Left(sName, Len(sName) - 4)
Range("A19:V30000").ClearComments
With ActiveSheet.QueryTables.Add(Connection:=PfadName, Destination:=Range("$A$19"))
.Name = sName
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 437
.TextFileStartRow = 6
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
_
1, 1, 1, _
1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Columns("A:V").Select
Selection.ColumnWidth = 11
Range("A19").Select
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True
End Sub
Anzeige