|
fuku さん、こんばんわ。
>記録終了の横には、セキュリティボタンがありまして、
>上の方法をしても、セキュリティが出てくるだけになってしまします・・
相対参照のボタンがあるかどうか確認してみましょう。
以下のコードを実行してみてください。
Sub test()
Dim cb As CommandBar, cbc As CommandBarControl
Dim RR As Long, CC As Long
Dim ws As Worksheet
'新しいシート
Set ws = Application.Workbooks.Add.Worksheets(1)
'
For Each cb In Application.CommandBars
RR = RR + 1: CC = 1
ws.Cells(RR, CC).Value = cb.NameLocal
'
For Each cbc In cb.Controls
If cbc.Type = msoControlButton Then
CC = CC + 1
ws.Cells(RR, CC).Value = cbc.Caption
End If
Next
Next
'
On Error Resume Next
ws.UsedRange.Find("相対参照", Lookat:=xlPart).Select
'
ws.Parent.Saved = True
Set ws = Nothing
End Sub
あったらセルが選択されますので、その行のA列のツールバーにボタンが乗っているはずです。
|
|