目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
110 / 110 ツリー ←次へ

【4】アドインファイルにてツールバーを表示するには、[ソフト紹介] ぴかる 02/9/2(月) 20:42 Excel[未読]

【26】Class1 ぴかる 02/9/3(火) 7:57 Excel[未読]

【26】Class1
Excel  ぴかる  - 02/9/3(火) 7:57 -

引用なし
パスワード
   Public WithEvents WBK As Workbook
Public WithEvents App As Application
Private Sub App_SheetActivate(ByVal Sh As Object)
   
  If フラグ <> 1 Then
   If Sh.Type = xlWorksheet And Sh.ProtectContents = False Then
    WBK_SheetSelectionChange ActiveSheet, Selection
   Else
    ShiyoKa False
   End If
  End If
  
End Sub
Private Sub App_WorkbookActivate(ByVal Wb As Workbook)
   
   InitializeBook WBook:=Wb
   App_SheetActivate ActiveSheet

End Sub
Private Sub App_WorkbookDeactivate(ByVal Wb As Workbook)
  
   ShiyoKa False

End Sub
Private Sub WBK_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  
   If (ThisWorkbook.Name = "ピカつーる.xla") And (Sh.ProtectContents = False) Then
   ShiyoKa True
   With Application.CommandBars("Cell")
     With .Controls(11)
       If .BuiltIn = False Then .Enabled = True
     End With
   End With
   With Application.CommandBars("オリジナル書式設定")
   If Target.VerticalAlignment = xlBottom Then
    .Controls(12).State = msoButtonDown
   ElseIf Target.VerticalAlignment = xlCenter Then
    .Controls(13).State = msoButtonDown
   ElseIf Target.VerticalAlignment = xlTop Then
    .Controls(14).State = msoButtonDown
   End If
   End With
   Else
   ShiyoKa False
   With Application.CommandBars("Cell")
     With .Controls(11)
       If .BuiltIn = False Then .Enabled = False
     End With
   End With
   End If
  
  If Application.CutCopyMode = xlCopy Then
   With Application.CommandBars("Cell")
     With .Controls(7)
       If .BuiltIn = False Then .Enabled = True
     End With
   End With
  Else
   With Application.CommandBars("Cell")
     With .Controls(7)
       If .BuiltIn = False Then .Enabled = False
     End With
   End With
  End If

End Sub

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
110 / 110 ツリー ←次へ
ページ:  ┃  記事番号:   
0
(SS)C-BOARD v3.8 is Free