button (activex control) work on protected sheet

#1
excentryc

Posted 12 January 2018 - 13:31

Active Member

Grup: Members
Posts: 1,327
Înscris: 15.07.2005

Salut!
Am un sheet ptrotejat dar butonul de hide/unhide a coloanelor P:V nu mai functioneaza decat daca deprotejez foaia de lucru.
Codul mai jos:

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
If ToggleButton1.Value Then
	Application.ActiveSheet.Columns(xAddress).Hidden = True
Else
	Application.ActiveSheet.Columns(xAddress).Hidden = False
End If
End Sub

Ce trebuie sa fac?

Edited by MarianG, 12 January 2018 - 14:24.
code tags

Back to top

#2
navistar_eagle

Posted 12 January 2018 - 14:30

Member

Grup: Members
Posts: 958
Înscris: 16.11.2017

Incearca :

 Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value

Edited by navistar_eagle, 12 January 2018 - 14:31.

Back to top

#3
excentryc

Posted 12 January 2018 - 14:37

Active Member

Grup: Members
Posts: 1,327
Înscris: 15.07.2005

nu merge

Back to top

#4
excentryc

Posted 12 January 2018 - 15:52

Active Member

Grup: Members
Posts: 1,327
Înscris: 15.07.2005

am incercat asta si a mers

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
ActiveSheet.Unprotect ""
If ToggleButton1.Value Then
	Application.ActiveSheet.Columns(xAddress).Hidden = True
	ActiveSheet.Protect ""
  Else:
  Application.ActiveSheet.Columns(xAddress).Hidden = False
  ActiveSheet.Protect ""
End If
End Sub

Edited by excentryc, 12 January 2018 - 15:59.

Back to top

#5
navistar_eagle

Posted 13 January 2018 - 10:59

Member

Grup: Members
Posts: 958
Înscris: 16.11.2017

testeaza de curiozitate asa:

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
ActiveSheet.Unprotect ""
Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value
ActiveSheet.Protect ""
End Sub

Edited by MarianG, 13 January 2018 - 19:03.
removed quote

Back to top

#6
excentryc

Posted 13 January 2018 - 15:16

Active Member

Grup: Members
Posts: 1,327
Înscris: 15.07.2005

O sa incerc ... dar numai luni mai pot ca fisierul e la serviciu.
Merci anyway.

Edited by MarianG, 13 January 2018 - 19:03.
removed quote

Back to top

#7
excentryc

Posted 16 January 2018 - 12:53

Active Member

Grup: Members
Posts: 1,327
Înscris: 15.07.2005

navistar_eagle, on 13 ianuarie 2018 - 10:59, said:

testeaza de curiozitate asa:

Private Sub ToggleButton1_Click()
Dim xAddress As String
xAddress = "P:W"
ActiveSheet.Unprotect ""
Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value
ActiveSheet.Protect ""
End Sub

Merge !

Back to top

Anunturi

Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

button (activex control) work on protected sheet

#1 excentryc Posted 12 January 2018 - 13:31

#2 navistar_eagle Posted 12 January 2018 - 14:30

#3 excentryc Posted 12 January 2018 - 14:37

#4 excentryc Posted 12 January 2018 - 15:52

#5 navistar_eagle Posted 13 January 2018 - 10:59

#6 excentryc Posted 13 January 2018 - 15:16

#7 excentryc Posted 16 January 2018 - 12:53

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
excentryc

Posted 12 January 2018 - 13:31

#2
navistar_eagle

Posted 12 January 2018 - 14:30

#3
excentryc

Posted 12 January 2018 - 14:37

#4
excentryc

Posted 12 January 2018 - 15:52

#5
navistar_eagle

Posted 13 January 2018 - 10:59

#6
excentryc

Posted 13 January 2018 - 15:16

#7
excentryc

Posted 16 January 2018 - 12:53