オモロなもの売ってるmetaphys.jpさんとこが6月末からサーバメンテナンスのアナウンスしとって、
https://metaphys.stores.jp/としてstores.jpに仮設してたけど、
本日メルマガが届き、復旧困難なサーバー故障云々とメールが来て仮設サイトに本格移転とのこと。
なにがあったんやろか。
カテゴリー: 要電源
ExcelのVBAでシートを一括保護する。あと画像貼り付けは許可する
ExcelのVBAでシートを一括保護するしておくVBA。
あと画像貼り付けは許可したい場合は
DrawingObjects:=False
で描画オブジェクトのロックを外しておく。
Sub alllock() '全シート一括保護
Dim W As Worksheet
For Each W In Worksheets
W.Protect Password:="passwd", DrawingObjects:=False
Next W
End Sub
Sub allrelease() '全シート一括保護解除
Dim W As Worksheet
For Each W In Worksheets
W.Unprotect Password:="passwd"
Next W
End Sub
その他設定値は以下参照
http://www.officepro.jp/excelvba/sheet_ope/index2.html
はじめてのVBA ～
カラーミーショップで商品を問合せや非売品にしたい場合
カラーミショップで商品の価格を表示する代わりに、非売品やお問い合わせ
にするときの条件分岐。
商品情報登録時に価格などを空欄にしておき
条件分岐として
・価格が0ならHogeを表示する
というかたちで商品情報を掲載。
・詳細画面
販売価格など
<{$product.sales}>の欄の場合は
<{if $product.sales == 0}>表示したい内容
<{else}><{$product.sales}><{/if}>
同様に、価格に関わる変数の箇所に条件分岐を入れる。
お問い合わせに引きあわせたい場合は
<a href="<{$prod_inq_url}>">この商品について問い合わせる</a>
を入れておく。
会員価格などの項目もあるので、適時入れておく。
カート部分は
<code><{if $product.sales == 0}>
<{else}>
カート部分のタグ
<{/if}>
としておく。
・一覧画面系
<code><{if $productlist[num].price == 0}>表示したい内容
<{else}><{$productlist[num].price}><{/if}></code>