Új hozzászólás Aktív témák

• #41496 spe88 senior tag Louro #41495

  Új Válasz 2019-08-02 15:15:33 #41496

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  spe88

  senior tag

  válasz Louro #41495 üzenetére

  Attól nem kell tartani, hogy belenéznek a kódba. 3D-konstrukcióval foglalkozunk, ha a kollégáknak csak megemlíted, hogy el kell indítani az Excelt, habzó szájjal esnek le a székről és rohamot imitálnak. Ezért kell minél egyszerűbbre csinálni, hogy semmit ne kelljen írogatniuk stb.

  Viszont kipróbáltam a kódot: átugrok az adott fülre kéri is a jelszót, ahogy én azt szeretném viszont látok mögötte mindent ugyanúgy.

  A célom az lenne, hogy ne lehessen látni a munkalapot, nem az, hogy ne javíthasson bele valaki.
  És a neked ehhez semmi közöd bezárása után bármit tudok amúgy írni a lapra.

  Valamit gondolom rosszul adtam meg.

  Ez a kód (sajnos mást is futtatni kell induláskor)

  Private Sub Workbook_Open()
Set ASH = ActiveSheet
Sheets("HELP_DATA").Select
Columns("E:E").Select
ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Add Key:=Range("E1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("HELP_DATA").Sort
.SetRange Range("E2:E601")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Sheets("HELP_DATA").Select
Columns("G:G").Select
Range("G2").Activate
ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("HELP_DATA").Sort.SortFields.Add Key:=Range("G2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("HELP_DATA").Sort
.SetRange Range("G2:H601")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
End With
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Munkalap aktiválásakor mengnézzük, hogy az új munkalap a védendő-e:
If Sh Is Worksheets("Output") Then
'Ha a védendő, akkor jelszót kérünk:
If InputBox("Jelszó:") = "ezaz" Then
'Ha jó a jelszó, engedjük az aktívvá tételt,
'és elmentjük új aktívként
Set ASH = ActiveSheet
Else
'Ha rossz, akkor:
MsgBox "Ehhez a laphoz Neked semmi közöd!!"
'Visszaállítjuk az előző munkalapot aktívnak:
ASH.Activate
End If
End If
End Sub

  Köszi

Új hozzászólás Aktív témák