□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 管理人様へサーバー拒否について | |
|---|---|
[196567] 管理人様へサーバー拒否について- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ kazuo -(2025/04/29(23:08)) □U R L/ 本板ではurlの直張りを禁止していますが、その他にも The server refuse to browse the page.となり投稿できないことがままあります。 例えば、不等号 ＜＞ （投稿できないので全角表示にしておりますが）タグとの関係でしょうか？ 先日もMsgBox関係で投稿できないことがありました。 本サーバー拒否は板のポリシーでしょうができれば取っ払っていただきたく思いますが、 少なくともどんな投稿がサーバー拒否なるのか仕様を示して欲しく思います。 ご対応お願いいたします。 ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2021 ++++++++++++++++++++ | |
[196591] Re[1]: 管理人様へサーバー拒否について- ■記事引用/メール受信=OFF■ □投稿者/ Rezio -(2025/05/12(17:42)) □U R L/ いつもお世話になっております。 何年もGGIの拒否設定は触っていないのでですが サーバーの設定でWAF（ウェブアプリケーションファイアウォール）を 有効にしたので、無効にしてみました。 不等号はおっしゃる通りタグの関係です。 ご迷惑をおかけして申し訳ありません。 | |
[196593] Re[2]: 管理人様へサーバー拒否について- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2025/05/12(18:45)) □U R L/ 前回ダメだった MsgBox
Private Sub Workbook_Open()
If Workbooks.Count = 1 Then Application.Visible = False
Me.Windows(1).Visible = False
MsgBox "こんにちは" '前回ダメだった MsgBox
Application.Visible = True 'デバッグ用
Me.Windows(1).Visible = True 'デバッグ用
' Stop 'デバッグ用
If Workbooks.Count = 1 Then Application.Quit
Me.Close False
End Sub
Sub 不等号test()
If a <> b Then Exit Sub
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196594] Re[3]: 管理人様へサーバー拒否について- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2025/05/12(18:47)) □U R L/ url直貼り(ERRORになるのでスペースを追加しています） ERROR-現在スパム対策のため「h ttp」は使用できません! ということでこれはダメですね。 | |
[196595] Re[4]: 管理人様へサーバー拒否について- ■  / 記事引用/メール受信=OFF■
□投稿者/ kazuo -(2025/05/12(18:52)) □U R L/ 早速のご対応ありがとうございます。 url直貼り以外は良さそうです。 このスレ ttps://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=196567&rev=0 のように今まで通り、先頭のhを除去して投稿いたします。 また気がつきましたら報告させていただくと思います。 | |
[196598] Re[5]: 管理人様へサーバー拒否について- ■記事引用/メール受信=OFF■ □投稿者/ Reizo -(2025/05/13(21:33)) □U R L/ お世話になっております。 url直貼りの規制を外してみました。 これで少し様子を見ようと思います。 不適切なURLを貼り付ける荒らしが現れたらまた規制をかけるようにします。 また何かありましたらご連絡ください。 いつも対応が遅くてすみません。 引き続きよろしくお願いいたします。 | |