deneme

[smutluer]

Dim cb As CommandBar

Sub gizle()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail Then
myRange.Columns(lastcolumn).ShowDetail = False
End If
ActiveSheet.Protect
End Sub

Sub goster()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail = False Then
myRange.Columns(lastcolumn).ShowDetail = True
End If
ActiveSheet.Protect
End Sub
Sub PopUpMenu()
Set cb = Application.CommandBars("Cell")

Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Seviyelendirme"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton)
.OnAction = "gizle"
.FaceId = 462
.Caption = "gizle"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "goster"
.FaceId = 464
.Caption = "goster"
End With
End With
End Sub
Sub Auto_open()
PopUpMenu
End Sub

Sub Auto_Close()
Set cb = Application.CommandBars("Cell")
cb.Controls("Seviyelendirme").Delete
End Sub

 

[smutluer]

denemedeneme

Dim cb As CommandBar

Sub gizle()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail Then
myRange.Columns(lastcolumn).ShowDetail = False
End If
ActiveSheet.Protect
End Sub

Sub goster()
On Error Resume Next
ActiveSheet.Unprotect
Set myRange = Cells(1, ActiveCell.Column).CurrentRegion
lastcolumn = myRange.Columns.Count
If myRange.Columns(lastcolumn).ShowDetail = False Then
myRange.Columns(lastcolumn).ShowDetail = True
End If
ActiveSheet.Protect
End Sub
Sub PopUpMenu()
Set cb = Application.CommandBars("Cell")

Set MenuObject = cb.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MenuObject.Caption = "Seviyelendirme"
MenuObject.BeginGroup = True
'
With MenuObject
With .Controls.Add(Type:=msoControlButton)
.OnAction = "gizle"
.FaceId = 462
.Caption = "gizle"
End With
With .Controls.Add(Type:=msoControlButton)
.OnAction = "goster"
.FaceId = 464
.Caption = "goster"
End With
End With
End Sub
Sub Auto_open()
PopUpMenu
End Sub

Sub Auto_Close()
Set cb = Application.CommandBars("Cell")
cb.Controls("Seviyelendirme").Delete
End Sub

 

[microaim]

:mrgreen: :bravo: :boo: ost: :mutlu:

 

[beab05]

başarısız bir marquee testi
<marquee>test</marquee>