Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
XPS - deformarea raportata la com...

A6000 - Ressurection Remix

Jaguar S-Type, 2007 (facelift), 2...

Dacia a atins un nou record de va...
 Exercitii sala

Olguta Vasilescu ameninta un Pres...

sfat alegere laptop gaming

Epic music - idei (și cu mot...
 Acord notarial Casa calcan

Mai votezi cu Iohannis daca mai p...

ryzen 1600 - editare video

Durere cap cauzata de casti
 Caloriferul se incalzeste doar pe...

programatori - cum va simtiti fac...

Program institutie de stat

Ajutor Windows 7
 
Forumul Softpedia folosește "cookies" pentru a oferi utilizatorilor o experiență completă. Vezi detalii sau închide mesaj (x)

button (activex control) work on protected sheet

- - - - -
  • Please log in to reply
5 replies to this topic

#1
excentryc

excentryc

    Member

  • Grup: Members
  • Posts: 834
  • Înscris: 15.07.2005
  • ID membru: 41,555
  • Locație: Centrul Universului
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


#2
navistar_eagle

navistar_eagle

    Member

  • Grup: Members
  • Posts: 630
  • Înscris: 16.11.2017
  • ID membru: 1,001,117
Incearca :
 Application.ActiveSheet.Columns(xAddress).Hidden = ToggleButton1.Value


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


#3
excentryc

excentryc

    Member

  • Grup: Members
  • Posts: 834
  • Înscris: 15.07.2005
  • ID membru: 41,555
  • Locație: Centrul Universului
nu merge

#4
excentryc

excentryc

    Member

  • Grup: Members
  • Posts: 834
  • Înscris: 15.07.2005
  • ID membru: 41,555
  • Locație: Centrul Universului
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.


#5
navistar_eagle

navistar_eagle

    Member

  • Grup: Members
  • Posts: 630
  • Înscris: 16.11.2017
  • ID membru: 1,001,117
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


#6
excentryc

excentryc

    Member

  • Grup: Members
  • Posts: 834
  • Înscris: 15.07.2005
  • ID membru: 41,555
  • Locație: Centrul Universului
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


Anunturi


0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users